<%
response.addHeader "Content-Type", "text/xml"
Response.ContentType= "text/xml"
response.addHeader "Pragma", "no-cache"
response.addHeader "Cache-Control", "must-revalidate"
response.addHeader "Cache-Control", "no-cache"
response.addHeader "Cache-Control", "no-store"
Response.AddHeader "Expires", 0

set con = Server.CreateObject ("ADODB.connection")
Con.Open Application("ConDB")


sql = request("query")
set rs = con.Execute(sql)


Dim oDOM
Set oDOM = Server.CreateObject("MSXML2.DOMDocument")
oDOM.async = False
rs.Save oDOM, 1 'adPersistXML

'Response.write oDOM.xml

Dim oXSL
Set oXSL = Server.CreateObject("MSXML2.DOMDocument")
oXSL.async = False
oXSL.load Server.MapPath("ADOGeneric.xsl") 'our XSL stylesheet
Response.Write "<XML id='xmlData' name='xmlData'><root>" & vbCrLf
Response.Write oDOM.transformNode(oXSL)
Response.Write "</root></XML>"


%>